use strict;
use warnings;

package JasPerl::PageContext::ParamHash;
use parent qw(JasPerl::PageContext::HashSupport);

sub new {
    my ($class, $context, $values) = @_;
    bless { request => $context->get_request(), values => $values };
}

sub get {
    if ($_[0]->{values}) {
        return $_[0]->{request}->get_parameter_values($_[1]);
    } else {
        return $_[0]->{request}->get_parameter($_[1]);
    }
}

sub keys {
    return $_[0]->{request}->get_parameter_names();
}

1;
